EEE 
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Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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| 
| 
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wu as 
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wu i 
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CIC Cp leg cots 
VYVUVYUUVYUUUWY 


om MMMM 

nw NNN 

nw nn ann 

nn mn heghd 

nn nn nn 

nw nn nw 

nn nn nn 

mn mm nn 
NNN nn 
NNN mn 

hm 

i 

me 

Cad 


ee ee ee 
ee ee ee ee 


8888888888 


nw NNnNYM 
nwn nn nn 
on nn nn 
“ww "nw nn 
nn mn nn 
nn mw nn 
nw ww nn 
YNNnNMN nn 
YNNwW mn 
oe — 
—) —— 
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e of contents 


(2) 7 HISTORY ; Detailed Current Edit History 
(3) DECLARAT {Ons 
( CVT_?_x = convert text to floating 
(15) T- jet next character 

(16) 10_.R9 = multiply FAC by 10 and add digit in R3 


egy 


22¢ 


oe oe oe oe ee ee 
3 ODO Bee 
“>>> > > > > > 


2s 


ol olele: 
SOO OOOO OO OOOO OOS 


—S 
2¢ 


=2-t=?: 
SOSSE 
22 OooSs 


2¢ 


Do 


2c 


2c 


=> 


2¢ 


35 ¢ 
== 


+ lo= 


>< 


2¢ 
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; Convert text to real (D, G and },'2 y= o- 1388 99: #3 93 ae /VA 


FA 
* 

AB 
Pe 
G 


HJ 


rtoat ing datatypes. This routine supports FORTRAN F, D and 


VERSION: 1 


AUTHO 


S$ Macr 
-SEP-1 IBRTL.SRCJ OTs yoTee. R.MAR;1 
seo text to real (D 


TITLE Orsseyrre Pit: OrStvtrRcAAR “Edit: FMI011 


- IDEN 


COPYRIGHT (¢ ) 1978, 1980, 1982, 1984 BY 
DIGIT AL Foul PMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS yan suee UNDER A LICENSE AND MAY BE USED AND COPIED 
Y - ome NCE WITH THE TERMS OF SUCH Lint AND WITH THE 
ane at ON ABOV pith NOTICE. THIS sort WARE OR ANY yt 
OPIES THEREOF MAA BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN 
Pannsrekneee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE oh ory pie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ae oka ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SHAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATAAAAAAAAAAAAAEE 


CILITY: Language-independent support Library 
STRACT: 
rforms conversion of character strings containing vr oy to 


format conversion, as well as similar types in other "ake wands 


STORY: 


R: 
Steven B. Lionel, 2-Jul-79: Version 1 


Page 


SASK AAKAKSSAALAAAAAAEAAAAAAARAAAEARAAAAAAAAAAEAAATAAAAAAAAAAAAAAEAAAEEAEAAATEAAEEEE 


® 
a 
® 
® 
© 
® 
co 
® 
® 
© 
® 
® 
® 
ee 
® 
® 
* 
® 
® 
® 
® 
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1 


er AFA tHe aeNMt cory ERESISEE ISDST EMOTE MESEABAR ans Pd 


47 -SBTTL HISTORY :; Detailed Current Edit History 


; EDIT HISTORY: 


Adored from OTS$ mm, version 1-003, ghanged to use Tom 
or cten ar Cw WEG ntry point. SBL 6-Jul- =1979 
Fs 1975 


i te 


; $8 tas crerteten: multiply routine in OTSSSCVTRT. 
; 1-005 - gompensate ie removal of STRING_LEN from convert frame. 
; BL 


leJu 
Correct ; typo @ comment. JBS 30-JUL-1979 
Correct *. enentat ion of V tis SBL 5-Sept-1979 
Implement V_EXP_LET sel 4 ec $79 
Improve for tories, underflow to catch extreme cases. 
Booed eaxtrene. i | Ae sgyutd give invalid answer with 
u us. - 

¢ up 9p perations on FAC when it fits in a Longuord (9 - 
fever 9 ss) or e uadword (18 or fewer digits) jnprove 
ots) p itt on by 10, test for zero, and normal izet on. JAW 


222222 222222 SS 


>c 
c= 


== 
>>> 
>>>. 


Wine 
De Oe Be Se Se Os Oe Os Se Oe Oe Os Oe Oe Ss Be Ss See Se Se Sete eee 
it at SD 
eee 
S3ss 
eecte 


o—- 


eer 


K 12 
; Convert text to real (D, G and H) 
bEELARAT IONS: 4 


000003FC 


"SSEp 198s VPTbSS EMONTC.SReSorscvieR.mar:1 788° (3, 
.SBTTL DECLARATIONS 


; INCLUDE FILES: 


; EXTERNAL SYMBOLS: 


4; 

5 -DSABL GBL 

§ eEXTRN OTS$_INPCONERR 3; Input conversion error 
-EXTRN OTSSSA_CVT_TAB : Convert table address 
eEXTRN OTSSSCOT_MO ; Conversion multiply routine 


: MACROS: 


; PSECT DECLARATIONS: 


38 ; 
9 


; EQUATED SYMBOLS: 


-PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT 


REGMASK = “M<R2, R3, R4, RS, R6, R7, RB, RID 
3: register save mask 
3; Note: integer overflow not enabled 


3¢ 
; The following symbols are used to indicate the bit position of the flag 


+ 
; Literals for data types 


! 3; register. 
i e 
1 V_NEGATIVE = H ; flag bit: 1 if negative sign 
1 V_DEC_POINT = 30 ; flag bit: 1 if decimal point is seen 
1 M_DEC_POINT = 1830 3 mas for V_DEC_POINT 
1 V_NEG_DECEXP = e 3: flag bit: f exponent has negative sign 
1 M_NEG DECEXP = 1829 3; mask for V - _DEXEXP 
V-DECEXP = 2B : tlag b t: f exponent field exist 
M_DECEXP s 926 3 mas rv bg cexP 
V-EXT_BITS = 2 3 flag 8 t: T if extension bits 
3; wante 
M_EXT_BITS = 1827 3; mask for V_EXT_BITS 


; D-floating 


K_D ; 
6000001 K-DTYPE_ 2 ‘ 3 G-floating 
2 K-DTYPE-H = 2 3 H-floating 


me et wee 8 et eet ab Bd ks ed nh ed ah a a a et ad a od ot et a 


RI OODNA NEW OO NAULS WN (OOO NAULS WN O 


OTSSEVTTR Convert text to real (D, G and hy '* y $Ee- 1386 90: i} 93 AX/VMS M v04- tH. 


Page 
BECLARATIONS LIBRTL. SREJOTSCVT . dh 


MAR; 1 


3¢ 
é : Temporary stack offsets 


TEMP = 0 3 sword. shift storage during 
FLAG = 4 : fla 
3 as/R6 in in 298 RSCNV_IN_DEFG 
DIGITS = 8 : digits tor ight of decimal 
3 point (was 
DECEXP = 1 3; Decimal exponent 
DTYPE = 1 3; Datatype code 


£4 
; Stack offsets for OTSSSCVT_MUL routine 


BINNUM = 20 3; Binary fraction storage 
NT = | 3: Overflow area for BINNUM 
BINEXP = 4 : Binary exponent 
PRODF _4 = 44 3; Multiply temporary 
PRODF = 48 3; Multiply temporary 
CRY = 64 3; Carry save area 
FRAME = CRY + 16 3 Stack frame size 
7% 
3; Constants 


L.2P31_DIV_10 = 214748364 3 (2**31)/10 


aS a A a 8 8 8 5 ss 8 Ss 


HDD GPSS BBS BS Be BP BB EB EAI 
NM OODNAUE WO OD NOUS OOOO 


ogee 


Soooooooscsd 


SOoSOooooo 


ODSooOOSGOOCOOOSOOOOOOCOOCOOSoOoOoSoSo 


DOOOOoOoOoooooo 


rt text to real (0, G and H) 
1.x = convert text to floating 


Soo 


m1 
. 1 
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-SBTTL OTSSCVT_T_x = convert text to floating 


++ 
FUNCTIONAL DESCRIPTION: 


OTSSCVT_T_x converts a text string containing a representation 
of a numeric value to a floating representation of that 

value. The routine supports FORTRAN F,E,D and G input type 
conversion a¢ well as similar types for other Languages. 


The description of the text representation converted b 
OTSscvl T_x is a8 follows: 


<0 or more blanks> 
con, OF nething> 
<Q or more decimal digits> 
<. OF nothing 
<0 or more dec mel digits> 
<exponent or noth Nge where exponent is: 
< <<’ "a *e"'" 7 ‘ 4 a “’ *'q'> 
<0 or more blanks> 
<4", “'="" or nothing>> 
fae eee 
r = 
<0 or more decimal digits>> 
<end of string> 


Notes: 1. Unless ‘‘caller_flags’’ bit V_SKIPBLANKS 
is set, blanks are soutvelens to 
decimal "'0''. If V_SKIPBLANKS jis set, 
blanks are always Tgnored. 

2. There is no difference in semantics 
between any of the 6 valid exponent 


etters. 
3. If “caller_fiags’’ bit V_ONLY_E is set, 
the only valid exponent letters are 
and ‘'e"’; any others will be treated 
as an invalid c aracter. 
4. If “caller_flags’’ bit V_SKIPTABS is set, 
tab characters are ignored else they are 
an error. 
If “caller_flags’’ bit V_EXP_LETTER is set, 
the exponent, if present, must start with 
a valid exponent letter, i.e. 1.2E32. 
if clear, the exponent (etter may be omitted, 
e. e oO 


wm 
° 


CALLING SEQUENCE: 


status.wlc.v = OTSSCVT_T_x (in_str.rt.dx, value.wfx.r 
» digitS_in_fract.rlu.v 
scale_facfor.rl.v 


é ext_bits.wesfi}i3)" 


where ‘x’’ is the datatype of the floating value, either 


«MAR; 1 


Page 
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TSSCVTTR ; Convert text to real (D, G and H) 16-SEP-1984 00:31:03 VAX/VMS M v04-0 Pp OT 
Tet 61s CVE tx - convert text to floating -SEP=1 984 99:75:88 CTORTL. SREDOTSCUTTR MAR; 1 a ) Le 


; : dD. Gor Hu. 
4 3 INPUT PARAMETERS: 
00000004 : : in_str = 4 ; input string descriptor by 
3; reference 
0000000C¢ 8 digits_in_fract = 12 5 no decimal point is 
: present n input, specifies 
? 3 how many digits are to be 
3; treated as being to the 
j ST eattted Ole the coreule 
00000010 4 scale_factor = 16 ; signed scale factor. If — 
5 3 present, and exponent absent, 
§ 3; the result volus s 
; multiplied by 10**factor. 
3 : If “‘caller_flags’ bit 
i6 A V-FORCE SCALE 18 oP. the Lied 
: scale factor is always a ed. 
00000014 rt - caller_flags = 20 : flags supplied by ca ler 
“§ ; Definitions of caller supplied flags 
Me wae 
000000 $6 V_SKIPBLANKS = 0 : If set, blanks are ignored 
000000 4 V_ONLY_E = 1 : If set, onty E 7 e exponents 
48 3; allowed (BASIC+2, PL/I 
4 0 49 V_ERR_UFL = ¢ 3 set, error on underflow 
. ; 50 V-DONTROUND = i: If set, don't round value 
0000 51 M_DONTROUND = 1a3 3 Mask for V_DONTROUND 
0000004 26 V-SKIPTAB =4 : If set, tabs are ignored. 
: : If clear, tabs are illegal. 
00000005 : V_EXP_LETTER = 5 3; If set, an exponent must begin 
5 3; with a valid exponent letter. 
3$ 3; If clear, the exponent letter 
3; may be omitted. 
00000006 38 V_FORCESCALE = 6 3 If set, the scale factor is 
3; always applied. If clear, it 
60 : is only applied if there {s 
61 3 No exponent present in the 
$6 3 string. 
00000007 ee NO_OF __FLAGS = 7 ; Number of flags 
66 3 
8 « IMPLICIT INPUTS: 
o8 : 
? ; NONE 
, : OUTPUT PARAMETERS: 
00 7 ° value = : floating result by ref 
$b0000%8 75 ext_bits = in 3 if present, the value will 
6 : NOT be rounded and the first 
7 3 n bits after truncation wil. 


eee 


5E 


SE 


00000050 8F 
10 AE 


00 
1 


00 
0 


0050 
AE 


02 
1c 


8F 


0p 


O3F 
5E 00000050 +4 3 
10 AE D 


B 13 
; Convert text to real (0, G and H) 
rss 


O3FC 
C 
D 
1 


O3FC 


60 
11 


VT_T_x = convert text to floating 


7 
rg 
0 
4 
‘ 
0 
0 4. 
000 398 
00 94 
00 95 
00 38 3 
000 97 ; IMPLICIT OUTPUTS: 
0000 98 ; 
44 99 ; NONE 
00 00 ; 
0000 01 ; COMPLETION CODES: 
44 4 3 
000 03 ; OTS$_INPCONERR 
a4 04; 
000 05 ; SS$_NORMAL 
4 06 ; 
000 07 ; SIDE EFFECTS: 
000 08 ; 
000 09 ; NONE 
000 10 ; 
44 11 3-- 
000 \¢ 
0000 1 
0000 318 ENTRY 
000 16 
000 17 SUBL2 #FRAM 
0 MOVL 
0D 1 BRB 
oF 0 
F 1 ENTRY 
11 § 
11 SUBL2 #FRA 
18 4 MOVL #K_D 
Be 5 BRB CORAM 
1E § FORSCNV_IN_ DEFG:: 
1 8 eERTRY 
SUBL2 #FRAME 
8 9 3 BRB COMMON 
8 838 
8 ;+ 
8 4 


SSEb=1986 99343 


Sete Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Se & 
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be returned in this argument. 
For D-floating, the next 8 bits 
re returned as a byte. 

or G and H floating, 11 and 15 
bits are returned, respectively, 
as a word, left-adjusted. 

These values are guiteste for 
use as the extension operand 

in an EMOD instruction. 
WARNING: The bits returned for 
H-floating may not be precise 
due to the fact that alculations 
are only carried to 1 bits. 
However, the error should be 
small. D and G datatypes 
return guaranteed exact bits, 
but they are not rounded. 


- sever illegal character in input or 


overTlow. 
= success 


OTS$CVT_T_H, REGMASK 
E, SP 

#K_DTYPE_H, DTYPE(SP) 

COMMON 

OTSSCVT_T_G, REGMASK 

ME, SP 

TVPE_G. DTYPE (SP) 


OTSSCVT_T_D, REGMASK 
MOVL &#K_DTYPE_D, DTYPE(SP) 


entry for OTSSCVT_T_H 
Create stack frame 
Set datatype code 
Go to common code 


entry for OTSSCVT_T_G 
Create stack frame 
Set datatype code 
Go to common code 


3; Create stack frame 


: Register usage and abbreviations: 


Set datatype code 
Go to common code 
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TSSCVTTR ; Convert text to real (D, G and H) 16-SEP-1984 00:31:03 VAX/VMS Macro Vv04-00 P 
ote drsscvt ji x = convert text to toasting ~$Fb=1 3be 99:74:88 LIBRTL.SRCJOTSCVTTR.MAR; 1 Ne d) 


B Ss 
8 § ; RO = Generally count of input characters remaining. 
8 5 Ri = Generally pointer to input character. 
B 8 3 Re - Generally holds decimal exponent. 
B $ RS = Used first to hold current character, then as 
8 40; extra orgs tsion » ts for — fraction. 
8 41; R4-R7 = The 128 bit binary fraction. 
B 28 : Re - Count of digits seen after overflow. 
8 45 ; R9 = Count of significant qtgtts seas in fraction (number of 
3 gits currently he n R4: ° 
: rf: digit tly held R4:R7) 
8 rk} : FAC: Binary fraction, R4-R7. 
8 8 
028 8 COMMON: 
04 AE D4 8 29 CLAL FLAG(SP) ; clear flags 
05 91 ‘ 5 CMPB (AP), #<caller_flags/4> ; is optional caller_flags 
26 3 argument present? 
14 =F 1 5 BLSSU5$ ; if not, s ip 
04 AE 07 00 14 AC FO 035 34 INSV caller_flags(AP), #0, #NO_OF FLAGS, FLAG(SP) 
; set caller flags 
06 6c 91 3 : 2 CMPB (AP), #<ext_bits/4> 3 is ops tenes ext_bits argument 
3 presen 
08 IF 09 D «358 BLSSU 58 : Th net, skte 
04 AE 08000008 8F C8 O03F 59 BISL #<M_EXT_BITS+M_DONTROUND>, FLAG (SP) 
0047 60 3; set bit ap i it is there 
0047 61 ; plus dont round bit 
50 04 8C 7D 0047 $¢ 5$: MOVQ @in_str(AP), RO ; RO will qet string Length, the 
0048 «36 : CLASS and TYPE fields will go 
048 64 ; away after the first SKPC. 
048 65 ; R1 points to aput string. 
52 4 0048 $6 CLRL R2 ; R2 =_DECIMAL_EXPONENT = 
8 Fe Ober 88 ftha 6 t RGR? FAC TE 0 
08 AE 04 $051 69 CLRL DIGITS(SP) ; digits in fraction 
03 6C 91 0054 370 CMPB 3s (AP), - #<digits_in_fract/4> 
057 71 ; is digits_in_fract present? 
0S 1F 0057 iG BLSSU ‘108 . skip no 
08 AE OC AC 90 0059 7 MOVL digits_in_fract(AP), DIGITS(SP) ; set if present 
: LRQ ; Clear digit counts (R R9). 
7s 6 UC B2 ee 10$ CLR R8 l digi (RB & RI) 
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r 3 
78 ; Find first non-blank. If none, return zero. Otherwise process 
3; character. 


61 50 20 38 20S: SKPC #*A/ /, RO, (RI) ; skip blan 
; RO = BAAR * REMAINING 
; RI = POINTER_ TO_INPUT 
3; 2 bit is set if” mu blanks 
BGTR 30$ 3; non posse nk found? 
01 BRw ZERO : it not, return zero 
3 308 MOVZBL (R1), R3 t RSS Ascii icurrent. char) 
OD 04 a5 BBC # ma aie FLAG(SP) , 35s 3; Not randy Be tabs? 
0 CMPL RS, # ; Is character ab 
BNEG ©. 35 ; No 
INCL R1 : Yes, bump pointer 
E SOBGTR RO, 208 3; Decrement character count 
ZERO 3; Value is zero 
35$ CMPB k3, #*A/-/ : current cher a "=" sign? 


BNEQ  40$ ranch if n 
BBCS  #V_NEGATIVE, FLAG(SP), pict tet oor 


15 04 AE 
; set negative flag and el gp 


~m 

LJ 

ou 
POS FOMIOUMOMOO "OO 
MANWOW WFWWNO-"GWwel—Ow 
9A —-0- 0 Mm OWwne oO Mow 


SOrM WS WP SION S bP oH 


MEUM SO ODNAU EWN O OONOAUE WO 


SODOOCOCOOOOOOOOONO 


28 40$ CMPB R3, #*A/+/ is current char a 
4 EQL Dyér LOOP ; yes, ignore and continue 
2E 4 CMPB R3, #*A/./ 3; is current char 
4 BNEQ CHECK D DIGIT : no, should be a digit 
L 3 set decimal point encountere 
04 AE 4000 4 BISL M_DEC_POINT, FLAG(SP) decimal ; d 
re CLRL DIGITS TSP) : ignore digits_in_fract 


E 13 
T TT : “SEP- :31: - Mu 
me" brSECUFTT k**convert text to floating ‘S-SEP-198¢ 11:15:56 LCIORTE.sReoorScvTIR.man:1 28° (8) 4 


407 
4 3 3; Collect joteoer r and {rection digits. Blanks -". zeroes unless 
409 ; V_SKIPBLANKS is set in which case they are ignor 
i ; Tabs are illegal unless V_SKIPTABS is on in ghich case they are ignored. 
412 ° 
415 DIGIT_LOOP: 
038 $13 BSBW RGET 3; get a new character 
4) TSTL R 3; check for we of string 
0 $18 BGTR CHECK_DIGIT ; continue if positiv 
OODA 4] BRW SCALE ; done if string empty 
418 CHECK_DIGIT: 
39 4) SUBL #*A/0/, R3 3; convert to guserte 
4 CMPL :; is it a digit? 
1A 4e1 BGTRU NOf_DIGIT ; no 
» WL, DIV, ; chec est pert. fs) to 
OCCCCCCC BF 57 ? CMPL R7, #L_2P31_DIV_10 h h highs h f FAC 
3 see is. 00 big to 
426 ; multiply by 1 
9% 425 BLEQU§ 10$ : it's ok 
: 4 § NCL R8 3 overflow, bump squater 
4 BRB 2$ : skip multiplica 
D 4 8 10$: BSBW MUL10 ; Multi Ly FAC — 18” and add R3. 
1E 429 2$: BBC ay aiid RBOINT, FLAG(SP), BIGIT_L 
430 z check to see if decimal 
431 3; point has been seen 
4 § 3 = continue if not. 
08 AE & INCL DIGITS(SP) ; bump DIGITS 
2 : BRB DIGIT_LOOP 3; branch back to read more 
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TSSCVTTR A . “SEP- 231: - 
ea AMRIT SEE SotMalinn MERREIME PTLD IMOE MESSE as "Hh 
OU 


= tt 
039 
G6 
44 


NOT_DIGIT: 
&h CMPL 
46 


—— 


+ 
A non-digit has been found. Check for sign or exponent letter. 


WDNVOOOOOO0O 
= 
ys 

Sete te 
o 
mz 
ov 
la 


FFFEFFFE 8F 53 » tf #<*A/./=*A/0/> 3 check if current char is a ‘'."’ 
FFEFFFFO SF 4 oj 44 cnPL ns MOK/*/"8/0/> : pragch to Sets if yes 
3; Exponent starts wit us 
FEFFFFFD 8F » 08 44 CMPL Rs “8<*A/=/=*A/0/> : FxPS , 
bh BEQL eX m ; Exponent starts with a minus 
15 » + ret. CMPL R35, #<*A/E/-*A/0/> ; 2 
& 44 BEQL ; process exponent 
35 D E9 $29 CMPL R35, #<*A/e/-*A/0/> ; ‘'e’'? 
1 ec 4 BEQL xX 3 process gugonent 
18 04 AE 1 E E 128 BBS #V_ONLY_E, FLAG(SP), 10$ ; ERROR 
F 4 3; error if only E, e allowed 
14 3 » F 454 CMPL R3, #<*A/D/=-*A/0/> , *v'? 
} re 455 BEQL + process exponent 
34 D1 F $28 CMPL R3, #<*A/d/-*A/0/> : Ce? 
¢ 13 FB 45 BEQL ; process exponent 
21 01 FD $38 CMPL R3, #<*A/Q/-*A/0/> ie o. 
¢f 13 8 45 BEQL 3 process exponent 
00000041 8F > oO 460 CMPL R3, #<*A/q/-*A/0/> ;-@ 
3 13 1s 461 BEQL EXPON 3 process exponent 
008 31. 01 ret 10$: BR ERROR : error since illegal char. 
106 Gea 4 
10E 465 ; The exponent did not start with a letter. This is not allowed 
} 4 288 ; if VLEXP_LETTER is set. 
10€ 468 EXP_PLUS: 
41 04 AE 93 1 1 . r+} BBC #V_EXP_LETTER, FLAG(SP), EXP_LOOP 
0081 1 112 $29 = ERROR 3; Not allowed 
7C 04 AE 5 0 0116 tis = BBS #V_EXP_LETTER, FLAG(SP), ERROR 
002E 1 118 $27 . BRW EXP_NEG 3 Ok 
11E 475 ; Decimal point has been found 
Me oa 
11€ 478 DECIMAL_POINT: ; 
74 04 AE 1E €2 iE 47 BBSS #V_DEC_POINT, FLAG(SP), ERROR ; error if duplicate 
08 AE bs 1 480 CLRL DIGITSTSP) 3 reset bicits 
FF74 1 0126 481 BRW DIGIT_LOOP 3; get fraction digits 
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» 
- 


BErAARH—-ITOT™ 
SRSA ze 
a.=——- = mew 


FF 5 + ct 


o 
= 
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TSSCVTTR - Convert text to real (D, G and H) 16-SEP-1984 00:31:03 VAX/VMS Macro V04-00 Page 1 OTS 
at oTS$cv -'x = convert text to floating moet 90:74:93 LIBRTL.SRCJOTSCVTTR.MAR; 1 . t8) Psi 
1 483 ;+ 
! ? : ; Loop to collect digits, store the accumulated DECIMAL_EXPONENT in R2 
1 486 ° 
1 289 EXPON: 
50 0.7 01 4 3 DECL RO ; skip over letter PSE 
44 15 QO12B 4 BLEQ EXP_DONE ; done if string enpty = 
1 6 0120 490 INCL R1 3; R1 points to next character . 
61 50 0 120F = 4491 SKPC #*a/ 7, RO, (RI) ; skip blanks 0! 
: 1 138 BLEQ EXP_DON : done if end of string 
53 A 01 49 MOVZBL (RI), ; R35 = current char 
05 04 Ar E1 01 494 BC #V_SKIPTABS, FLAG(SP), 10$ ; Not skipping tabs? 
0 D1 0130 495 CMPL 3; Is it a tab 
13 014 496 BEQL = EXPON : Yes, skip it 
o & TS hes tee Ot Caw fone” Fao gut dtett oot 
3 yes, ge s om 
2D 4 D1 014 re CMPL R3, #*A/-/ : neh . ° Ini 
Fo 12 16a 9 papel BNEG EXP_CHECK $ mo, go check digit son 
04 AE 20000000 BF C8 —14¢ é an tat #M_NEG_DECEXP, FLAG(SP) ; exponent is negative yt 
0274 30 0154 4 ~ BSOY RGET : get next character Syn 
50 oD 157 5 TSTL 8 ; is string empty? Pse 
16 #1 159 $ BLEQ EXP_DONE 3 done if true Cre 
138 EXP_CHECK: Ass 
53 9 4 158 8 SUBL #*A/0/, R3 3 convert to numeric 
1 15 9 BLSS ERROR : If negative, illegal character The 
09 ; D1 016 10 CMPL «6oaR3, #9 : is it a digi 16/ 
1A 016 11 BGTRU ERROR + branch to ERROR if not The 
52 OA C4& 016 13 MULL #10, R2 ; add in new digit 92( 
1D 0168 1 BVS ERROR : overflow? O¢ 
52 CO O16A 14 ADDL R3, R2 3 to exponent 
28 1D 0160 «515 BvS ERROR > overflow? 
E 11 \¢f 16 BRB EXP_LOOP 3 get more exponent digits 
171 18 EXP_DONE : 
03 04 1D =€1 0171 1 BC #V_NEG_DECEXP, FLAG(SP), 1$ :_ check for negative Mac 
5 52 cf 176 0 MNEGL R2, R 3; negate DECIMAL_EXPONENT —= 
04 AE 1 SF CC Any 1 1$: BISL #M_DECEXP, FLAG(SP) 3 exponent field exists - 
B18] : 0 < 
The 
MA( 


H 13 
hie brSSCVECT_X°= convert text to floating ‘S-SEP-19be Stitsi96 Ettante.skedorscvitR.mar;1 2% {3) Sry 


1 s¢ 
181 3; Done collecting input characters for digits and/or exponent 
! 3 iY Fabso. no sealing is necessary, just-store $3 end return. 
1 eo 
1 SCALE 
59 03 TSTL Rg 3 Check FAC for zero. 
1 1 BNEQ INIT _BINEXP :; Branch if not. 
: Value is zero. 
3 ZERO: 
50 01 00 MOV #1, RO 3 SS$_NORMAL 
; 40 ZERO_VALUE: 
51 O08 AC 00 OQ1 4 MOVL value(AP), R1 3; Get address of value 
02. «1 ag 4 ? yt SI IPECSPD. MK_DTYPE_H ; Check Length of datatype 
86 7¢ 44 CLRQ (R1)¢ 
61 7C 45 10$: CLRQ (R1) 
04 38 $8 RET 3; return with status in RO 
9 4 
Td $8 3¢ 
44 50 : ERROR return 
97 Be 
97 26 ERROR 
50 00000000'°8F 00 97 MOVL #OTS$_INPCONERR, RO ; RO = error return code 
€8 11 ? 3 BRB ZERO_VALUE 3; Set value to zero and exit 
A 3+ 
A 56 : $8 R1 to the binary exponent Cexponent bias + 128 - 1]. 
A 8 31 is number of fraction bits and 5 
A 3; for the MSB fraction bit which will be hidden Later. 
. $9 3; BINARY_EXPONENT will be modified during normalization process. 
A 62° 
A 8 INIT_BINEXP: 
02 00 10 AE F A $ CASEB DTYPE(SP), #K_DTYPE_D, #K_DTYPE_H ; Select on datatype 
han Sa et 
Te" QIAd Sef - WORD AENP=1S 
51 OOFF : f 8 D_EXP: pave. ot rate ATF. R1 : D-Floating 
51 047F : ‘ G_EXP: COveu #<*3400+*X7F>, R1 : G-Floating 
51 4O7F 8F Cc 72 HLEXP: MOVZWL a<* +*X7F>, RI ; H-Floating 
4 $ BRB EXP_COMMON 
75 ; 


+ 
3 Find the true decimal exponent for the value expressed in FAC. 
: Tous Cog nat exponent = Explicit exponent - Cscale factor] - 
3; digits in fraction + number of overflows 


; 
79 i 
a 


EXP_COMMON : 


Seeezszeeseee 


i 
ee 


58 10 AC 

58 08 AE 

OC AE 50 38 
8 


1 13 
text to real (D, G and H) 
x ~ convert text to floating 


eS ae a a 


NO OOS SOOO fm 


16s o-1988 90:31:03 AX/VMS Macro _v04- Page 14 TS 


LIBRTL.SRCJOTSCVTTR.MAR; 1 (9) ai 
CIMAL_EXPONENT 


R2, RO ; RO = DF 
AP), #<scale_factor/4> ; is scale_factor present 


#V_FORCESCALE 


scale_factor(AP), R8 
DIGITS(SP), RB 

R8, RO, DECEXP (SP) 
ERROR 


FLAG(SP 


3; 
of i 
WV-DECEXP, FLAG(SP), 2 Tester li on 


; ignore factor exponent 
exists 


; adjust decimal exponent for 
; scale factor 
; adjust for digits in fraction 


adjust decimal exponent for overflow 
If overflow, error 


J.13 
te brSSCVECT_A°= convert text to floating ‘S-SEP-19be Siitsi96 EtTante.skedorscvTeR.mar;1 2% (Yd) ‘ 


ge 
; Normalization. Shift the value left until bit 31 of R7 is on. 
: Adjust the binary exponent appropriately. 


09 fe CMPL R9, #9 3; Are there nore than 9 digits? 
12 p CRPL Rd, #18 ; hr "there aorechen 16 digits? 
. ; Are there mor an ¢ 
1A a3 BLEG N2 : If not, use No. . 


+ 
; Process all four longwords, since there are more than 18 digits. 


4057 Ff €0 NG: BBS 31. R7, REBASE ; Quit when R7<31> = 1. 
6E 5 1 #4 FF EXTZV) #51, #1, _R5, TEMP(SP) ; aye t lost in shift. 
4 4 8 9 ASHQ #1, R46, RS : Shift low part by one bit. 
6 38 1 79 ASHQ #1, R6, Rb : Shift high part by one bit. 
56 01 ee FO INSV TERP(SPD, #0, #1, R6  ; Replace bit lost in shift. 
d DECL R 3; Adjust exponent by one. 
—E6 11 BRB N4 3 Go back and retest. 
; Process two low-order longwords only, since there are <= 18 digits. 
51 00009940 F ¢2 N2: SUBL #64, R1 : Adjust exponent by 64. 
6 4 Se mova R4, R6 : ‘Shift’ by 64 bite. 
1 oY 10$ DECL $ Adiyst exponent by one. 
56 56 1 ASHQ #1, R6, Rb 3 Shift one bit. 
F818 BGEQ =: 108 : If R7<31> = 0, repeat. 
54 7C CLRQ R4 : Clear low-order 64 bits. 
14 #611 : BRB REBASE 3; Continue with next phase. 
3; Process only the low-order longword, since there are <= 9 digits. 
51 O8F Cc NI: SUBL #96, R1 : Adjust exponent by 96. 
pooogee 5 B VL RG, RT Ma tr oag atte 
1 p 208: DECL r Adjust exponent. 
57 57 01 ; ASHL #1, R7, R7 3; Shift one bit. 
FB BGEQ 208 3: If R7<31> = 0, repeat. 
3; Clear low-order Longword. 
54 04 CLRL R4 Cl t der | d 


; Redes ing. R4-R7 now contains a binary {rection normalized with 
; the radix puint to the left of bit 31 of R7. R1 contains the 

: survent, Ginary exponent and DECEXP(SP) contains the current decimal 
; exponent. 


3 maretere the number can be represented as: 

3 teh © fraction * 10**d 

3; where b is the binary exponent and d is the decimal exponent. we 
3; call OTSSSCVT_MUL to multiply the number by some power of 10 such 
3; that d goes to zero and b goes to the appropriate value. When d is 
R 


; zero, b contains the proper ary exponent. 


E: 
MOVAB BINNUM(SP) 
MOVL = RI, BiNexp(s 
MOVG R4&, BINNUM+ 


R8 ; RB is used by subroutine as base 
P) 3; Store binary exponent 
(SP) 3 Store fraction 


9 
9 
9 
9 
) 
) 
D 
Dd 
D 
0 
D 
i) 
) 
D 
Dd 
0 
0 
i) 
Dd 
D 
1 
5 


a i 


4 AE 4 


osm 


TSSCVTTR H vert text to real (0, G a 5," =SEP-1984 00:31: ‘AX/VMS Macr P 1 
STi brSSeve't. x = convert text to. floating "$3 pa} obe 99:74:98 LIBRTL.SRCJ ors CvT eyTeR. MAR; 1 “<A (10) 
1C A - = :] MOVa R6, BINNUM+8(SP) 
af 8 b MOVL “ RY 3 ont g c inal gxponen posetbty 
3 x 
52 144 OD 4 10$: MOVL 3 Get de aif. +. pos tiv e vettest 
50 "OC AE DO O84 $ MOVE DEE ExPisP), RO : hal rae 
4 4 430" F : oa x dl re done 
1 49 BGT 2 5 i tive 
; cE 48 MNEGL #20, R2 3 No, yse are offset 
8 C ef MNEGL ARO, y 3; Absolute value 
1 ° } 208: cre : § a 9 : ™ n Linear table range? 
03 50 E 6 30$: BBS R?. RO, 408 ; is" the rth bit of RO on? 
9 F A SOBGEQ R7, 30$ ; No« seit Sere 
3 s 4 a never fa " 
50 $7 OC ct O58D Ge? 40S: ADDL. «#12, RT. RO $ Index 18 never posttion = 
$ os : aay J peste is linear 
52. 5 4 1 670 508 MULL2 : Get table offset 
52 00000006"eF 2 iE $4 grt MOVAB orésen CVT_TABLR2], R2 : Table entre address 
6— 5 ) 6C or¢ MOVL R7, TERMPC(SP 3 Saye ot position 
57 2B AE 9E of 67 MOVAB DECERP?28 CSP), R7 3 This thy ert routine’ 
674 $ ay Seep. The etl te offset gs 
7 675 3; the -28 location 9 91 0 DEC_EXP 
7 676 3 referenced in OTS _AUL. 
90000000 o 1 7 67 JSB orssscvt MUL 3; Do the rela tessian 
5 ! f 7 of8 SUBL3 TEMPTSP), 3 Get next bit position 
7D «(467 BGEG 108 : Loop back if more 
ae 
7F ? § : If we fall through here, then there are no more bits to reduce. 
7F 3 Test DECEXP to make sure. 
we RBs 
OC A 1) 7F 6 § TSTL DECEXP(SP) 3; Any pits still on? 
05 1 ¢ 6 BEQL FLOAT : 
1 1 6 3 BLSS UNDERF LOW 3 Negative, under f Low 
FFOE 31 6 6 BRwW ERROR 3: Yes, exponent too big 


i- 
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TSSCVTTR ; Convert text to real (D, G and H) 16-SEP-1984 00:31:03 VAX/VMS Macro v04-00 P 17 
et brERCU TTT fee oavert text Gontloating  SeSePc1oRe Siitbite LO TANTS Rese 88 anes P28e CHT, 


$¢ 
; ; Create a floating number from the fraction in BINNUM and the 
3; binary exponent in R1. Each datatype has a separate routine 
¢ 3 to do this. 
38 FLOAT 
28 AE 93 9 TSTL BINEXP(SP) 3; Under flow? 
0B BLSS UNDERF LOW 3; Yes 
02 00 £10 AE F CASE DTYPE(SP), #K_DTYPE_D, #K_DTYPE_H 
1° 10$: WOR FLOAT_D-10$8 
64' R FLOAT_G-10$ 
D* 029 ORD FLOAT-H-10$ 


4 - 
- 
8 : Value underflowed. Check to see if it's allowed. If so, set 
3 : value to zero, else error. 

10 

1 

13 

14 


BBS #V_ERR_UFLO, FLAG(SP), 10$ : Allowed? 
W ZERO 3 Yes 
10$:  BRW ERROR : NO 


~RSSSSSSSSLRAMAGOOOO 
SSW 


03 04 AE 02 0 
FEES | 
FEFS 1 


ongtevtTe 
$6 4_ 
S$ Fboootd 

FF 990 


"° 87 Si 


51 


Oooo **O—-OGWw THT 


So 
= 
hd 
rx 
>u 
ms 
om PS 1 —"VOUIOCO WMOouLs—Pyp 


- ¢ 
61s 


pnt oe Shen ae & pares =—QAOnNO-wVN 
OOOO 9 @O-" 9 VOP?rPOPrPUaU 


Ww 
pars 


ScviCT 


AR 


NH HWW MMMMMOCOIVOEMOMOOOoOowww 


NES B09 OU NOW MO OW mM NT 


ooooo 


text to real (D0, 
x = convert text 


FLOAT_D: 


FFE FWWWIWIWIWIWI WII nonononononononung 2 2 
N= OOWONAULS NO ODNOUE 
w 
oe 
@oo>-—ow S222 
@o-<Oo200 onnm 
cooo Qooz< 
or crrcrom 
ow 
sa 


SQN 


G ond H) 
to floating 


BJNNUN+B (SP) R6 
#23, BINEXP(SP), R1 
ERROR _D 


» 
o 


R 
F-XF 66066, R? 

R1, R 

ERROR_D 

HY _DONTROUND, FLAG(SP), 


#0, R7 
ERROR 


D 
#V_EXT_BITS, FLAG(SP), 17$ 


RB, @ext_bits (AP) 
2 


SSEP=19Be 99:75:98 


’ T AG(SP), 
¥ NEGA Tye, FLAG(S 20$ 


AX/VMS Macro V04-00 
LIBRTL.SRCJOTSCVTTR.MAR; 1 


Restore fraction 

Put exponent in proper place 
Error if overflows 

extract rounding bits 

Shift rection right 8 places 
clear possibly shifted bits 
Add in exponent 

3; overflow if hidden bit bumps 
j_gnpenens too far 


roun 
: round bit is zero 
3; round 


; Error? 


; Set sign bit 

; insert sign bit to 1 

3; R2 = reference to result 
3; rotate and store result 


3; ALL done 


; error return 


_ abs 


eer 


51 BB ae 


4 
re 
55 Sb ooh8 BF 

if 
OB 04 A 3 
rT Y 
57 : 
C 
04 04 AE 18 
18 5 
m6 08 AE iE 
P 99 78 ac 
Br i 
007 


brSSCyE F 
Hy 
; 
i 
CA 1 
oon 
1C 
eo Bal 
be Oa 
Ip oa 
oO 
an 
ae bate 
a 
31 O3cp 
0350 


text to real (0, 
x = convert text 7. f 


768 

769 ERROR_G: 
770 BRW 
771 


and Wi "OEP: 1384 99: i} 9 


BINNUM+8 (SP) 
#20, BINERPYSPOe R1 


i re R6, RB 


Et cua R7 
ERROR G 


DONTRO ND, FLAG(SP), i 
5, RNS 


ERROR 
#V RENT. BITS, AT) peli 
RB, @ext_bits(AP 


wnt 
Re inghe 
eX! 16 " 


ERROR 


‘AX/VMS Macro V04-00 
LIBRTL.SR RCI0 TSCVTTR.MAR; 1 


; Restore fraction 
i re in er place 
Error if over 


; S Ex ract yrounding. bits 


; Left a 
t Shift. fraction right 11 places 
F eet pesess: id shifted bits 
x 

3; overflow ra Aidden bit bumps 
eit — far 

4 bat te sere 
oo 


; Error? 


17$ 
AV NEGAT P 
ay INEG EG ab FLAG(S ), .j 


; Set sign Ag 
insert sign bit to 1 
= reference es  reeuke 


3; rotate and store result 
3; ALL done 


> error return 


Pa 19 
v3) 


et 


B 14 | 
TSSCVTTR ; Convert text to real (D, G and H) 16-SEP-1984 00:31:03 VAX/VMS Macro V04-00 Page 20 TS 
ati drssevi t. x = convert text to” floating $78 ba} 984 90:74:98 LIBRTL. SRE REIO TSCVTTR.MAR; 1 ° (14) Tab 
3 FLOAT_H: 
4 16 AE D 4 MOV { beeeseane $f of RG ; Restore fraction 
6 iC A B 5 MOVQ $$ BINNUM+8(SP), R6 
51 AE 1 8 i: ASHL #16, BINEXP(SP), R1 : Step 1 
1D 2 ie BVS ERR $ Spree if overflows 
58 4 F gf F oe EXTZV #0, #75, R4, RB : Extract rounding bits 
8 58 C 0364 ROTL #1, § Rg ; Left adjust 
50 F 00 Ef 68 780 EXTZ2v #0, #15, R6 : shift right 15 places 
54 F1 BF 3 $ 781 ASHO = #=45, R4, a 
6 56 F18F 7 f j ASHQ a1 R6, i 
55 11 50 £0 037 INSV RO, #17, #1 
57 FrFEggOO FCA 4s f 4 BICL #°XFFFEOO00, R ; clear_possibly shifted bits 
1 €0 5 ADDL R1, R7 ; Ste 
40 = 1D 7 : BVS ERROR_H : overflow if hidden bit bumps 
7 grpenent —_ far 
11 04 Ag 3 «£0 788 BBS av DONT ROUND FLAG(SP), iss : round? 
OD 5 a i D 789 BBC #5, 15$ 4 bit 19 aere 
46 O 91 790 INCL 3 Arorme 
55 D 93 791 ADWC 50, RS 
26 D 3% 79 ADWC #0, R 
00 »D 79 ADWC 
eA 1D 039C 79% BVS eRton i » Error? 
04 04 AE B E1 9E 795 15$: BBC av NEXT. _BITS, FLAG(SP) , 17$ 
18 BC 58 BO O3A £96 MOVW RB, a@ext_bits(AP 
04 04 Ag iF OE A? 797 17$: BBC ay. INEGATTY ve FLAG(SP) , 20$ Step 4 
00 5? iF €3 O3AC 798 BBCS :. ; insert’ ‘ater bit to 1 
08 a ey!) 0 799 20$ MOVL +4 fj 3; R2 = reference to result 
8 |—h[?SSa 9C 4 00 ROTL #16, R7, tro , : rotate and store result 
8 36 10 9 8 801 ROTL #16, R6, (R2)+ 
82 5 10 9 C 80 ROTL #16, R5, (R2)+ 
62 54 10 9€ O3¢C0 80 ROTL #16, R4, (R2) 
C4 9-804 
C4 = 805 
C4 Bg 8 
C4 07 ; Success exit 
03C4 08 ; 
03¢4 809 
9 C4 10 EXIT: 
50 01 00 C4 11 MOVL #1, RO ; RO = success return code 
04 cf \¢ RET ; return result in a@value (AP) 
cB 14 ERROR_H: 
Focc 31 C 15 BRW ERROR 3; error return 
03(B «B16 
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TSSCVTTR ; Convert text to real (D, G and H) 16-SEP-1984 00:31:03 VAX/VMS M 4- P TS 
arti RGET = get next character 7 66-SEP-1984 90:74:93 MU ONTL SAC IOTSCUTTR MARS 1 — i) a 


-SBTTL RGET = get next character 


+ 
Subroutine RGET 
input: 


RO = number of characters remaining in string 
al R1 = address of current character 

output: 
RO is decremented by 1. If RO is now non-positive, 
RGET returns immediately, indicating that the end 
of the string has been reached. 
If there is string Fenennins R1 now points to the 
new current character, and $ has that character. 


If V_SKIPBLANKS is set in col ler. flags. blanks are 
ignored, otherwise a blank is converted to ‘0’. 


If V_SKIPTABS is set, tabs are ignored. 


OOOO OCOOCOOCOOCOCOOCOCOOCOCOCCOCOCOCCOOCOCOOOOOOOOOOOOoOO 
WAN WW AANA AAW AAAI NAAM AAAI AAA AAAI AI 


MMMMMMMMMNO OS OS VIINANNAAAANAAAOAOAAANMOAMNMOAA.NOo 
DOOMOOOW—-MOOOODOL—-NOWMDWVIVIVIVIVIVIVOIVOIVIVOWVIVIOVIOVIVIWOIOIIW 


DAA AAA AAA EE BE EEE BBWAA AAA AAI CIOROPONIPINONININN 


BNAWUES WN SO ODNAUE WN 0 OD NAUES WN OUWONAULE Wi O0Oo 


8 
GET: 
50 07 DECL RO 3; decrement length counter 
ee BLEQ 208 ; If string empty, return 
51 06 INCL R1 ; R1 points to new character 
53 61 9A MOVZBL (R1), R3 ;_R3 gets character 
0S 08 AE 04 E1 BBC #V_SKIPTABS, FLAG+4(SP), 10$ 
; Not skipping tabs? 
Hy ; FLAG is offset by 4 to allow 
3; for JSB to RGET. 
09 53 «O01 CMPL R3, #9 3; Is it a tab? 
ED 13 BEQL RGET > Yes 
20 3. «COD 10$: CMPL R3, #*A/ / ; is character a blank? 
08 is BNEQ »> return if not 
E308 AE 00 € BBS #V_SKIPBLANKS, FLAG+4(SP5, RGET 
; if it is a blank, and 
; V_SKIPBLANKS is set, ignore 
; this character. FLAG must 
3; be offset by 4 to adjust 
3; for the JSB to RGET. 
53 30 00 MOVL #*A/0/, R3 3 set R3 to zero 
05 20$: RSB 3 return 


L 


a 
De 


COOOCOM NNN NAWMMMMMMMMmMmMmMmMMM OD 


WWE NWO NUWMMVMOM OMOOAOOOOOOOOON 


o 
| ad 


D 14 
ex d H) 1 mi aes 9 90:33:93 a lyes Macro V04-00 Page (3) 


(0, G an 
FAC by 10 and add “SEP- LIBRTL.SRCJOTSCVTTR.MAR; 1 
-SBTTL MULIO_R9 = multiply FAC by 10 and add digit in R3 


ee il 


os 
re 
-o 
vo” 
-@ 
=<o@ 


i 


3¢ 

3 Subroutine MUL10_R9 

H nous: 

R4-R7 = FAC 

R9 = count of decimal digits currently held in FAC 


oytpyt: 
R4-R7 = FAC#10 + digit in R3 
R9 = updated count 


t 
¥ mu 
60 
3 
9? 
$9 
35 
79 
re MUL10_R9: 
5c 59 98 F3 7 AOBLEQ #9, RY, M1 : If 9_or fewer digits. use M1. 
12 59 01 74 CMPL R9, #18 : If 18 gr fewer digits, 
40 15 if A BLEQ : use M2. 
: Process entire octaword (four longwords), since there are > 18 digits. 
50 oD 79 i: PUSHL RO ; Free up a scratch register. 
50 5 9} 1F F 0 EXTZV #31, #1, R5, RO 3; Save bit that will be Lost. 
6 6 9} .] 1 ASHQ #1, R6, RE : Multiply high part by $3 
56 0 8 § ADDL RO, R : nopsese bit lost in shift. 
54 54 91 4 8 ASHQ #1, R4, RS 3; Mu tipty low part by 2. 
50 55 02 1 F 04 84 EXTzv #36, #2, R5, RO : Save bits that will be Lost. 
7E «(56 Q 9 04 5 ASHO ss #2, -($P) : Multiply high part by 4. 
gf ¢8 41 36 ADDL RO, p) 3; Replace bits lost in shift. 
7E 4 ge 41 8 ASHQ #2, R4, -(SP) : Multiply low pert by 4. 
54 BE CO 041 88 ADDL (SP)+, RG > Add 8*FAC to 2*FAC. 
55 BE D 411A 9 ADWC (SP)+, R5 y nes 
56 8E OD 1D 90 ADWC (SP)+, R6 3 
57 4 D g 91 ADWC ae R7 © wea 
54 CO 04 36 ADDL R3, RS : Add digit in R3. 
8 1 4 $ 9 BCC 20$ 3: If no carry, quit now. 
55 0 oO 4 94 ADWC #0, R5 S wee 
56 00 08 0428 95 ADWC #0, R6 S eas 
57 00 0D 42E 9 ADWC #0, R7 i eee 
50 8E OD 431 97 208: MOVL (SP)+, RO 3; Restore scratch register. 
0 4 38 z RSB 3; Return to caller. 
ri : 44 ; Process two low-order longwords only, since there are <= 18 digits. 
54 54 01 79 04 5 ¢ iz: ASHQ #1, R4, RS : Multiply R4:R5 by 2. 
56 54 2 79 «04 4 ASHQ #2, R4, R6 3 Mult heey R4:R5 by 4. 
4 $ C 43D 4 ADDL R6, R4 ; Add 8*FAC to we C (low). 
5 D rh 905 ADWC R7, RS ; Add 8*FAC to 2*FAC (high). 
4 2 48 44 9 $ ADOL R3, R4 ; Add digit in R3. 
55 20 p ret 3 ADWC #0, RS 
6 4 3 CLRQ R6 3; Restore R6:R7. 
0 ret + $B ; Return to caller. 
ret $11 : Process low-order longword only, since there are 9 or fewer digits. 
3 6444 gE +3 318 Al: MOVAL (Rad ERA. RG : Multiply R4& by 3° 
4 6344 5 2 14 MOVAW (R3)CR4), R4 ; Multiply R4 by 2 and add R3. 
9¢ 1 4 15 BN 10$ 3; If nonzero, quit now. ; 
D4 0456 16 CLRL Ro ; Reset digit count, since digit 


—- 


eat 


mut POYRS® Shut eipty racy ft 104," ada 'S~SED=1982 99:73:93 


AX/ yas M 
ier TL.S 


AESSrdevTie.man;1 P28 | 


igniti 
05 HH i i 10S: RSB eg Fe nee, 
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3 
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oO 
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Se 


~w 
= PU TU Te) 
= ccc fc ea [+4 ca 
ow 
owe t OVS CSS eee sase Om we 
wo e Nu VO ——O 
s e OWN - DOMOCOOOCOCOOOCOC oOoo-— 
#COOO & COSCO COOOOOCOCOCOOOCOCOOS CoCooo 
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OTSSCVTTR ; Convert text to real (0, G and H) 


Psect. synopsis "SSEe=198 FP:73:58 UCTaRTL. SReSorS 
tome ee weenn wenn nnt 


! Psect synopsis ! 


dese wonm earn owe nesah 


PSECT name Allocation PSECT No. Attributes 


or oo SHRI f ank:3 EHS OSE GR eo aE te ER RE 


PIC USR CON REL EXE RD 

pow oecr ee soe Beane ese emeanes } 

; Performance indicators 3 
Phase Page faults CPU Time Elapsed Time 
Initialization £00.93 P 
aE processing ! “7 703. 
Synbo table sort 16 : 3 . $ :00: 6:55 
Syabot table output :00:00.07 0:00:01 .42 
Psect synopsis output :00:00.01 :00:00.01 
Cross-reference output ‘ $ : 3: 08 
Assembler run totals 43 ‘ :00:17.4 


The working of, (85 Limit was 1200 pages 
pages) of virtual memory were used to ytthy he intermediate code. 
core were 10 pages of symbol table space allocated & ld 87 non-local and 37 local symbols. 
920 source i Ae were read in Pass 1, produc i = Sotlect records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 
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H ; Macro Library statistics ! 


Seeosetne se senses eece weamenunectl 


Macro library name Macros defined 
-$255S$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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NOWRT NOVEC BYTE 
NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTTR/OBJ=OBJ$:OTSCVTTR MSRCS:OTSCVTTR/UPDATE=(ENHS:OTSCVTTR) 
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